Hệ thống quản lý hàng tồn kho và bán trước trong c#

29.597 lượt xem;

FrmREPORTS.vb
FormX /
project /

1 Imports CrystalDecisions.CrystalReports.Engine
2 Imports CrystalDecisions.Shared
3 Imports System.Data.OleDb
4 Imports System.Data
5
6 Public Class FrmREPORTS
7     Private Sub FrmREPORTS_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
8         Dim ParamCollection As New CrystalDecisions.Shared.ParameterValues
9         mReport = New ReportDocument()
10
11         ' Frm_Screen.Show()
12         With MDIMain
13             i_Print = 0
14             .P_Print.Visible = True
15             .tmr_Print.Enabled = True
16             Select Case UCase(globalFRM)
17                 Case UCase("frmcatitemlist")
18                     'mReport.Load("D:\Sales and Inventory\prjSalesInventory\prjSalesInventory\ReportX\ProductList_Rpt.rpt")
19                     mReport.Load(Application.StartupPath & "\ReportX\ProductList_Rpt.rpt")
20                     Call DataSourceConnection_Report()
21                     mReport.SetDataSource(ExecuteSQLQuery(Rpt_SqlStr))
22                     ParamCollection.Add(_USER)
23                     mReport.DataDefinition.ParameterFields("user").ApplyCurrentValues(ParamCollection)
24
25                     ParamCollection.Add(ParamCompanyName)
26                     mReport.DataDefinition.ParameterFields("CompName").ApplyCurrentValues(ParamCollection)
27
28                     ParamCollection.Add(ParamCompanyLoc)
29                     mReport.DataDefinition.ParameterFields("CompLoc").ApplyCurrentValues(ParamCollection)
30
31                     CrystalReportViewer1.ReportSource = mReport
32                     Me.MdiParent = MDIMain
33
34                 Case UCase("FrmSuppliersList")
35                     'mReport.Load("G:\Sales and Inventory\prjSalesInventory\prjSalesInventory\ReportX\SuppliersList_Rpt.rpt")
36                     mReport.Load(Application.StartupPath & "\ReportX\SuppliersList_Rpt.rpt")
37                     Call DataSourceConnection_Report()
38                     mReport.SetDataSource(ExecuteSQLQuery(Rpt_SqlStr))
39                     ParamCollection.Add(_USER)
40                     mReport.DataDefinition.ParameterFields("user").ApplyCurrentValues(ParamCollection)
41
42                     ParamCollection.Add(ParamCompanyName)
43                     mReport.DataDefinition.ParameterFields("CompName").ApplyCurrentValues(ParamCollection)
44
45                     ParamCollection.Add(ParamCompanyLoc)
46                     mReport.DataDefinition.ParameterFields("CompLoc").ApplyCurrentValues(ParamCollection)
47
48                     CrystalReportViewer1.ReportSource = mReport
49                     Me.MdiParent = MDIMain
50
51                 Case UCase("frmsuppliersproduct")
52                     'mReport.Load("D:\_PROGRAM\_VB.NET\Sales and Inventory\prjSalesInventory\prjSalesInventory\ReportX\SuppliersProduct_RPT.rpt")
53                     mReport.Load(Application.StartupPath & "\ReportX\SuppliersProduct_RPT.rpt")
54                     Call DataSourceConnection_Report()
55                     mReport.SetDataSource(ExecuteSQLQuery(Rpt_SqlStr))
56                     ParamCollection.Add(_USER)
57                     mReport.DataDefinition.ParameterFields("user").ApplyCurrentValues(ParamCollection)
58
59                     ParamCollection.Add(ParamCompanyName)
60                     mReport.DataDefinition.ParameterFields("CompName").ApplyCurrentValues(ParamCollection)
61
62                     ParamCollection.Add(ParamCompanyLoc)
63                     mReport.DataDefinition.ParameterFields("CompLoc").ApplyCurrentValues(ParamCollection)
64                     CrystalReportViewer1.ReportSource = mReport
65
66                     Me.MdiParent = MDIMain
67
68                 Case UCase("FrmPURCHASEORDER")
69                     mReport.Load(Application.StartupPath & "\ReportX\PurchaseOrder_RPT.rpt")
70                     Call DataSourceConnection_Report()
71                     mReport.SetDataSource(ExecuteSQLQuery(Rpt_SqlStr))
72                     ParamCollection.Add(_USER)
73                     mReport.DataDefinition.ParameterFields("user").ApplyCurrentValues(ParamCollection)
74
75                     ParamCollection.Add(ParamCompanyName)
76                     mReport.DataDefinition.ParameterFields("CompName").ApplyCurrentValues(ParamCollection)
77
78                     ParamCollection.Add(ParamCompanyLoc)
79                     mReport.DataDefinition.ParameterFields("CompLoc").ApplyCurrentValues(ParamCollection)
80
81                     ParamCollection.Add(ParamCompanyContact)
82                     mReport.DataDefinition.ParameterFields("CompContact").ApplyCurrentValues(ParamCollection)
83
84                     CrystalReportViewer1.ReportSource = mReport
85                     Me.MdiParent = MDIMain
86
87                 Case UCase("PurchaseORder_BySupplier")
88                     mReport.Load(Application.StartupPath & "\ReportX\PO_Supplier_RPT.rpt")
89                     'mReport.Load("D:\_PROGRAM\_VB.NET\Sales and Inventory\prjSalesInventory\prjSalesInventory\ReportX\PO_Supplier_RPT.rpt")
90                     Call DataSourceConnection_Report()
91                     mReport.SetDataSource(ExecuteSQLQuery(Rpt_SqlStr))
92
93                     ParamCollection.Add(_USER)
94                     mReport.DataDefinition.ParameterFields("user").ApplyCurrentValues(ParamCollection)
95
96                     ParamCollection.Add(ParamCompanyName)
97                     mReport.DataDefinition.ParameterFields("CompName").ApplyCurrentValues(ParamCollection)
98
99                     ParamCollection.Add(ParamCompanyLoc)
100                     mReport.DataDefinition.ParameterFields("CompLoc").ApplyCurrentValues(ParamCollection)
101
102                     ParamCollection.Add(ParamCompanyContact)
103                     mReport.DataDefinition.ParameterFields("CompContact").ApplyCurrentValues(ParamCollection)
104
105                     CrystalReportViewer1.ReportSource = mReport
106                     Me.MdiParent = MDIMain
107                 Case UCase("frmpurchaseorder_receive")
108                     'mReport.Load("D:\Sales and Inventory\prjSalesInventory\prjSalesInventory\ReportX\PurchaseReceive_RPT.rpt")
109                     mReport.Load(Application.StartupPath & "\ReportX\PurchaseReceive_RPT.rpt")
110                     Call DataSourceConnection_Report()
111                     mReport.SetDataSource(ExecuteSQLQuery(Rpt_SqlStr))
112                     ParamCollection.Add(_USER)
113                     mReport.DataDefinition.ParameterFields("user").ApplyCurrentValues(ParamCollection)
114
115                     ParamCollection.Add(ParamCompanyName)
116                     mReport.DataDefinition.ParameterFields("CompName").ApplyCurrentValues(ParamCollection)
117
118                     ParamCollection.Add(ParamCompanyLoc)
119                     mReport.DataDefinition.ParameterFields("CompLoc").ApplyCurrentValues(ParamCollection)
120
121                     ParamCollection.Add(ParamCompanyContact)
122                     mReport.DataDefinition.ParameterFields("CompContact").ApplyCurrentValues(ParamCollection)
123
124                     CrystalReportViewer1.ReportSource = mReport
125                     Me.MdiParent = MDIMain
126
127                 Case UCase("FrmSTOCKMONITORINGBALANCES")
128                     mReport.Load(Application.StartupPath & "\ReportX\CurrentStocks_RPT.rpt")
129                     Call DataSourceConnection_Report()
130                     'mReport.DataSourceConnections(0).SetConnection(Split(tmpStr, ":")(1), "SaleInv_DB", Split(tmpStr, ":")(2), False)
131                     'mReport.DataSourceConnections(0).SetLogon("sa", "angelito")
132                     mReport.SetDataSource(ExecuteSQLQuery(Rpt_SqlStr))
133
134                     ParamCollection.Add(_USER)
135                     mReport.DataDefinition.ParameterFields("user").ApplyCurrentValues(ParamCollection)
136
137                     ParamCollection.Add(ParamCompanyName)
138                     mReport.DataDefinition.ParameterFields("CompName").ApplyCurrentValues(ParamCollection)
139
140                     ParamCollection.Add(ParamCompanyLoc)
141                     mReport.DataDefinition.ParameterFields("CompLoc").ApplyCurrentValues(ParamCollection)
142
143                     CrystalReportViewer1.ReportSource = mReport
144                     Me.MdiParent = MDIMain
145
146                 Case UCase("frmPOSPAYMENT")
147                     'mReport.Load("D:\Sales and Inventory\prjSalesInventory\prjSalesInventory\ReportX\Receipt_Rpt.rpt")
148                     mReport.Load(Application.StartupPath & "\ReportX\Receipt_Rpt.rpt")
149                     Call DataSourceConnection_Report()
150                     mReport.SetDataSource(ExecuteSQLQuery(Rpt_SqlStr))
151
152                     ParamCollection.Add(ParamCompanyName)
153                     mReport.DataDefinition.ParameterFields("CompName").ApplyCurrentValues(ParamCollection)
154
155                     ParamCollection.Add(ParamCompanyLoc)
156                     mReport.DataDefinition.ParameterFields("CompLoc").ApplyCurrentValues(ParamCollection)
157
158                     ParamCollection.Add(ParamCompanyContact)
159                     mReport.DataDefinition.ParameterFields("CompContact").ApplyCurrentValues(ParamCollection)
160
161                     ParamCollection.Add(ParamCompanyTIN)
162                     mReport.DataDefinition.ParameterFields("CompTIN").ApplyCurrentValues(ParamCollection)
163
164                     CrystalReportViewer1.ReportSource = mReport
165                     CrystalReportViewer1.PrintReport()
166                     'Me.MdiParent = MDIMain
167                 Case UCase("Sales_Report")
168
169                     mReport.Load(Application.StartupPath & "\ReportX\SALES_REPORT.rpt")
170                     Call DataSourceConnection_Report()
171
172                     mReport.SetDataSource(ExecuteSQLQuery(Rpt_SqlStr))
173                     ParamCollection.Add(ParamDVFrom)
174                     mReport.DataDefinition.ParameterFields("txtfrom").ApplyCurrentValues(ParamCollection)
175
176                     ParamCollection.Add(ParamDVTo)
177                     mReport.DataDefinition.ParameterFields("txtto").ApplyCurrentValues(ParamCollection)
178
179                     'ParamCollection.Add(_USER)
180                     'mReport.DataDefinition.ParameterFields("users").ApplyCurrentValues(ParamCollection)
181
182                     CrystalReportViewer1.ReportSource = mReport
183                     CrystalReportViewer1.Refresh()
184                     'CrystalReportViewer1.ParameterFieldInfo.Item("txttest").DefaultValues = tempValues
185                     Me.MdiParent = MDIMain
186
187                 Case UCase("Sales_Report_VOID")
188                     'mReport.Load("D:\Sales and Inventory\prjSalesInventory\prjSalesInventory\ReportX\SALES_REPORT_VOID.rpt")
189                     mReport.Load(Application.StartupPath & "\ReportX\SALES_REPORT_VOID.rpt")
190                     Call DataSourceConnection_Report()
191                     mReport.SetDataSource(ExecuteSQLQuery(Rpt_SqlStr))
192                     ParamCollection.Add(_USER)
193                     mReport.DataDefinition.ParameterFields("user").ApplyCurrentValues(ParamCollection)
194
195                     ParamCollection.Add(ParamCompanyName)
196                     mReport.DataDefinition.ParameterFields("CompName").ApplyCurrentValues(ParamCollection)
197
198                     ParamCollection.Add(ParamCompanyLoc)
199                     mReport.DataDefinition.ParameterFields("CompLoc").ApplyCurrentValues(ParamCollection)
200
201                     CrystalReportViewer1.ReportSource = mReport
202                     Me.MdiParent = MDIMain
203
204                 Case UCase("collection_report")
205                     'mReport.Load("D:\Sales and Inventory\prjSalesInventory\prjSalesInventory\ReportX\Collection_Summary.rpt")
206                     mReport.Load(Application.StartupPath & "\ReportX\Collection_Summary.rpt")
207                     Call DataSourceConnection_Report()
208                     mReport.SetDataSource(ExecuteSQLQuery(Rpt_SqlStr))
209                     ParamCollection.Add(_USER)
210                     mReport.DataDefinition.ParameterFields("user").ApplyCurrentValues(ParamCollection)
211
212                     ParamCollection.Add(ParamCompanyName)
213                     mReport.DataDefinition.ParameterFields("CompName").ApplyCurrentValues(ParamCollection)
214
215                     ParamCollection.Add(ParamCompanyLoc)
216                     mReport.DataDefinition.ParameterFields("CompLoc").ApplyCurrentValues(ParamCollection)
217
218                     CrystalReportViewer1.ReportSource = mReport
219                     Me.MdiParent = MDIMain
220
221                 Case UCase("FrmPRODUCTS_REORDER")
222                     'mReport.Load("D:\Sales and Inventory\prjSalesInventory\prjSalesInventory\ReportX\Products_Reorder.rpt")
223                     mReport.Load(Application.StartupPath & "\ReportX\Products_Reorder.rpt")
224                     Call DataSourceConnection_Report()
225                     mReport.SetDataSource(ExecuteSQLQuery(Rpt_SqlStr))
226                     ParamCollection.Add(_USER)
227                     mReport.DataDefinition.ParameterFields("user").ApplyCurrentValues(ParamCollection)
228
229                     ParamCollection.Add(ParamCompanyName)
230                     mReport.DataDefinition.ParameterFields("CompName").ApplyCurrentValues(ParamCollection)
231
232                     ParamCollection.Add(ParamCompanyLoc)
233                     mReport.DataDefinition.ParameterFields("CompLoc").ApplyCurrentValues(ParamCollection)
234
235                     CrystalReportViewer1.ReportSource = mReport
236                     Me.MdiParent = MDIMain
237
238                 Case UCase("frmBarcode")
239                     'mReport.Load("D:\Sales and Inventory\prjSalesInventory\prjSalesInventory\ReportX\BARCODE.rpt")
240                     mReport.Load(Application.StartupPath & "\ReportX\BARCODE.rpt")
241                     Call DataSourceConnection_Report()
242                     mReport.SetDataSource(ExecuteSQLQuery(Rpt_SqlStr))
243                     CrystalReportViewer1.ReportSource = mReport
244
245                     'Me.MdiParent = MDIMain
246
247                 Case UCase("Sales_Receipt")
248                     'mReport.Load("D:\Sales and Inventory\prjSalesInventory\prjSalesInventory\ReportX\SALES_RECEIPT_REPORT.rpt")
249                     mReport.Load(Application.StartupPath & "\ReportX\SALES_RECEIPT_REPORT.rpt")
250                     Call DataSourceConnection_Report()
251                     mReport.SetDataSource(ExecuteSQLQuery(Rpt_SqlStr))
252                     ParamCollection.Add(_USER)
253                     mReport.DataDefinition.ParameterFields("user").ApplyCurrentValues(ParamCollection)
254
255                     ParamCollection.Add(ParamCompanyName)
256                     mReport.DataDefinition.ParameterFields("CompName").ApplyCurrentValues(ParamCollection)
257
258                     ParamCollection.Add(ParamCompanyLoc)
259                     mReport.DataDefinition.ParameterFields("CompLoc").ApplyCurrentValues(ParamCollection)
260
261                     CrystalReportViewer1.ReportSource = mReport
262                     Me.MdiParent = MDIMain
263
264                 Case UCase("deffective_po_report")
265                     'mReport.Load("D:\Sales and Inventory\prjSalesInventory\prjSalesInventory\ReportX\Deffective_Stocks.rpt")
266                     mReport.Load(Application.StartupPath & "\ReportX\Deffective_Stocks.rpt")
267                     Call DataSourceConnection_Report()
268                     mReport.SetDataSource(ExecuteSQLQuery(Rpt_SqlStr))
269                     ParamCollection.Add(_USER)
270                     mReport.DataDefinition.ParameterFields("user").ApplyCurrentValues(ParamCollection)
271
272                     ParamCollection.Add(ParamCompanyName)
273                     mReport.DataDefinition.ParameterFields("CompName").ApplyCurrentValues(ParamCollection)
274
275                     ParamCollection.Add(ParamCompanyLoc)
276                     mReport.DataDefinition.ParameterFields("CompLoc").ApplyCurrentValues(ParamCollection)
277
278                     ParamCollection.Add(ParamCompanyContact)
279                     mReport.DataDefinition.ParameterFields("CompContact").ApplyCurrentValues(ParamCollection)
280
281                     CrystalReportViewer1.ReportSource = mReport
282                     Me.MdiParent = MDIMain
283
284                 Case UCase("deffective_po_return")
285                     'mReport.Load("D:\Sales and Inventory\prjSalesInventory\prjSalesInventory\ReportX\Deffective_Stocks_Return.rpt")
286                     mReport.Load(Application.StartupPath & "\ReportX\Deffective_Stocks_Return.rpt")
287                     Call DataSourceConnection_Report()
288                     mReport.SetDataSource(ExecuteSQLQuery(Rpt_SqlStr))
289                     ParamCollection.Add(_USER)
290                     mReport.DataDefinition.ParameterFields("user").ApplyCurrentValues(ParamCollection)
291
292                     ParamCollection.Add(ParamCompanyName)
293                     mReport.DataDefinition.ParameterFields("CompName").ApplyCurrentValues(ParamCollection)
294
295                     ParamCollection.Add(ParamCompanyLoc)
296                     mReport.DataDefinition.ParameterFields("CompLoc").ApplyCurrentValues(ParamCollection)
297
298                     ParamCollection.Add(ParamCompanyContact)
299                     mReport.DataDefinition.ParameterFields("CompContact").ApplyCurrentValues(ParamCollection)
300
301                     CrystalReportViewer1.ReportSource = mReport
302                     Me.MdiParent = MDIMain
303
304                 Case UCase("return_customer")
305                     mReport.Load(Application.StartupPath & "\ReportX\ReturnStockToCustomer.rpt")
306                     Call DataSourceConnection_Report()
307                     mReport.SetDataSource(ExecuteSQLQuery(Rpt_SqlStr))
308                     ParamCollection.Add(_USER)
309                     mReport.DataDefinition.ParameterFields("user").ApplyCurrentValues(ParamCollection)
310
311                     ParamCollection.Add(ParamCompanyName)
312                     mReport.DataDefinition.ParameterFields("CompName").ApplyCurrentValues(ParamCollection)
313
314                     ParamCollection.Add(ParamCompanyLoc)
315                     mReport.DataDefinition.ParameterFields("CompLoc").ApplyCurrentValues(ParamCollection)
316
317                     CrystalReportViewer1.ReportSource = mReport
318                     Me.MdiParent = MDIMain
319
320                 Case UCase("frmorder_form")
321                     mReport.Load(Application.StartupPath & "\ReportX\Order_Slip.rpt")
322                     Call DataSourceConnection_Report()
323                     mReport.SetDataSource(ExecuteSQLQuery(Rpt_SqlStr))
324                     CrystalReportViewer1.ReportSource = mReport
325
326                 Case UCase("frmorder_form_data")
327                     mReport.Load(Application.StartupPath & "\ReportX\Order_Slip.rpt")
328                     Call DataSourceConnection_Report()
329                     mReport.SetDataSource(ExecuteSQLQuery(Rpt_SqlStr))
330                     CrystalReportViewer1.ReportSource = mReport
331                 Case UCase("FRMAUDIT_TRAIL")
332
333                     'mReport.Load("D:\_PROGRAM\_VB.NET\Sales and Inventory\prjSalesInventory\prjSalesInventory\ReportX\Users_LOG.rpt")
334                     mReport.Load(Application.StartupPath & "\ReportX\Users_LOG.rpt")
335                     Call DataSourceConnection_Report()
336                     mReport.SetDataSource(ExecuteSQLQuery(Rpt_SqlStr))
337                     ParamCollection.Add(_USER)
338                     mReport.DataDefinition.ParameterFields("user").ApplyCurrentValues(ParamCollection)
339
340                     ParamCollection.Add(ParamCompanyName)
341                     mReport.DataDefinition.ParameterFields("CompName").ApplyCurrentValues(ParamCollection)
342
343                     ParamCollection.Add(ParamCompanyLoc)
344                     mReport.DataDefinition.ParameterFields("CompLoc").ApplyCurrentValues(ParamCollection)
345
346
347                     CrystalReportViewer1.ReportSource = mReport
348                     Me.MdiParent = MDIMain
349                 Case UCase("frmphysicalcount")
350                     mReport.Load(Application.StartupPath & "\ReportX\physicalcount_report.rpt")
351                     Call DataSourceConnection_Report()
352                     mReport.SetDataSource(ExecuteSQLQuery(Rpt_SqlStr))
353                     ParamCollection.Add(_USER)
354                     mReport.DataDefinition.ParameterFields("user").ApplyCurrentValues(ParamCollection)
355
356                     ParamCollection.Add(ParamCompanyName)
357                     mReport.DataDefinition.ParameterFields("CompName").ApplyCurrentValues(ParamCollection)
358
359                     ParamCollection.Add(ParamCompanyLoc)
360                     mReport.DataDefinition.ParameterFields("CompLoc").ApplyCurrentValues(ParamCollection)
361
362                     CrystalReportViewer1.ReportSource = mReport
363                     Me.MdiParent = MDIMain
364
365                     '---
366                 Case UCase("frmproduct_pacing")
367                     'mReport.Load("D:\_PROGRAM\_VB.NET\Sales and Inventory\prjSalesInventory\prjSalesInventory\ReportX\ProductPacing_Report.rpt")
368                     mReport.Load(Application.StartupPath & "\ReportX\physicalcount_report.rpt")
369                     Call DataSourceConnection_Report()
370                     mReport.SetDataSource(ExecuteSQLQuery(Rpt_SqlStr))
371                     ParamCollection.Add(_USER)
372                     mReport.DataDefinition.ParameterFields("user").ApplyCurrentValues(ParamCollection)
373
374                     ParamCollection.Add(ParamCompanyName)
375                     mReport.DataDefinition.ParameterFields("CompName").ApplyCurrentValues(ParamCollection)
376
377                     ParamCollection.Add(ParamCompanyLoc)
378                     mReport.DataDefinition.ParameterFields("CompLoc").ApplyCurrentValues(ParamCollection)
379
380                     CrystalReportViewer1.ReportSource = mReport
381                     Me.MdiParent = MDIMain
382             End Select
383             .P_Print.Visible = False
384             .tmr_Print.Enabled = False
385         End With
386         'Frm_Screen.Close()
387     End Sub
388 End Class

Hệ thống quản lý hàng tồn kho và bán trước trong c#

Web, Tìm kiếm nhanh

Web, Tìm kết quả nhanh

Dự án liên quan!

Cách tạo đồng hồ bấm giờ trong C#

Hệ thống quản lý hàng tồn kho sử dụng cơ sở dữ liệu VB.NET và MySQL với mã nguồn

Đếm nguyên âm và phụ âm

Phần mềm quản lý nhân viên hiện đại sử dụng C#.net và Bunifu Framework với Full Source Code (2020)

Hệ thống quản lý đại học bằng C# với mã nguồn đầy đủ

Hệ thống quản lý bệnh viện bằng C# với mã nguồn đầy đủ